	TR_Repuestos= Record
                CantFaltante: Word;
                CodRepuesto: Word;
	End;
	
        TV_Repuestos=Array[1..10] of TR_Repuestos;
	
	TP_PedidosFaltantes=    ^TN_Pedido;	
	TP_RepuestosFaltantes=  ^TN_Repuesto;
			
	TN_Repuesto=Record
		CodRepuesto:Word;
		SubPedidos: TP_PedidosFaltantes;
	        sgte:   TP_RepuestosFaltantes;
	End;
		
	TN_Pedido=Record
		NumPedido: Word;
		RtosFaltantes: TV_Repuestos;
		CantFaltante: Integer;
		sgte: TP_PedidosFaltantes;
	End;
         
        FechaString = String[8];
        String30    = String[30]; 

        Pedido=Record
       	        Numero:Word;
       	        Fecha:FechaString;
       	        Electrodomestico:String30;
        End;

        Repuesto=Record
       	        Codigo:Word;
                Descripcion:String30;
                Cantidad:Word;
        End;

        ArrayRepuestos = Array[1..10] of Repuesto;

        PedidoReparado=Record
                Numero:Word;
                Fecha:FechaString;
                RepuestosUtilizados:ArrayRepuestos;
        End;

        FilePedidos         	= File of Pedido;
        FilePedidosReparados	= File of PedidoReparado;
   	FileRepuestos       	= File of Repuesto;

